home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / vbit140.zip / VBITITAB.BAS < prev    next >
BASIC Source File  |  1996-01-18  |  4KB  |  66 lines
  1. ' VBITITAB 1.40                         (c) 1996 InfoTech AS, Bergen, Norway
  2. Declare Sub ITabCopy Lib "VBIT.DLL" (ByVal fromTab&, ByVal fromLine%, ByVal toTab&, ByVal toLine%, ByVal num%)
  3. Declare Function ITabDir& Lib "VBIT.DLL" (ByVal fileName$, ByVal fileType&)
  4. Declare Function ITabEnvList& Lib "VBIT.DLL" ()
  5. Declare Function ITabEnvString& Lib "VBIT.DLL" (ByVal envVar$)
  6. Declare Function ITabFileInfo& Lib "VBIT.DLL" (ByVal fileName$)
  7. Declare Function ITabFind% Lib "VBIT.DLL" (ByVal iTable&, ByVal findStr$, ByVal row%, ByVal col%, ByVal typ%)
  8. Declare Function ITabFindGE% Lib "VBIT.DLL" (ByVal iTable&, ByVal findStr$, ByVal col%)
  9. Declare Function ITabFromString& Lib "VBIT.DLL" (ByVal s$, ByVal delim$)
  10. Declare Function ITabGet$ Lib "VBIT.DLL" (ByVal iTable&, ByVal lin%, ByVal col%)
  11. Declare Function ITabGetColWidth% Lib "VBIT.DLL" (ByVal iTable&, ByVal col%)
  12. Declare Function ITabGetInt% Lib "VBIT.DLL" (ByVal iTable&, ByVal lin%, ByVal col%)
  13. Declare Function ITabGetLine$ Lib "VBIT.DLL" (ByVal iTable&, ByVal lin%)
  14. Declare Function ITabGetLong& Lib "VBIT.DLL" (ByVal iTable&, ByVal lin%, ByVal col%)
  15. Declare Function ITabGetNumColumns% Lib "VBIT.DLL" (ByVal iTable&)
  16. Declare Function ITabGetNumLines% Lib "VBIT.DLL" (ByVal iTable&)
  17. Declare Function ITabGetReal# Lib "VBIT.DLL" (ByVal iTable&, ByVal lin%, ByVal col%)
  18. Declare Function ITabGetSize& Lib "VBIT.DLL" (ByVal iTable&)
  19. Declare Function ITabNew& Lib "VBIT.DLL" (ByVal lines%, ByVal cols%)
  20. Declare Function ITabNewArray& Lib "VBIT.DLL" (ByVal lines%)
  21. Declare Function ITabRead& Lib "VBIT.DLL" (ByVal fileName$, ByVal fileType&)
  22. Declare Function ITabReadFixedRecLenFile& Lib "VBIT.DLL" (ByVal fileName$, ByVal fmt$)
  23. Declare Function ITabReadFmt& Lib "VBIT.DLL" (ByVal fileName$, ByVal fmt$, ByVal types%)
  24. Declare Function ITabWrite% Lib "VBIT.DLL" (ByVal iTable&, ByVal fileName$, ByVal fileType&)
  25. Declare Sub ITabBlankLine Lib "VBIT.DLL" (ByVal iTable&, ByVal atLine%)
  26. Declare Sub ITabBlankLines Lib "VBIT.DLL" (ByVal iTable&, ByVal atLine%, ByVal num%)
  27. Declare Sub ITabCopyToGRID Lib "VBIT.DLL" (ByVal iTable&, ByVal ssHandle&)
  28. Declare Sub ITabDelete Lib "VBIT.DLL" (iTable&)
  29. Declare Sub ITabInsertLine Lib "VBIT.DLL" (ByVal iTable&, ByVal atLine%)
  30. Declare Sub ITabInsertLines Lib "VBIT.DLL" (ByVal iTable&, ByVal atLine%, ByVal num%)
  31. Declare Sub ITabPut Lib "VBIT.DLL" (ByVal iTable&, ByVal lin%, ByVal col%, ByVal dataStr$)
  32. Declare Sub ITabPutInt Lib "VBIT.DLL" (ByVal iTable&, ByVal lin%, ByVal col%, ByVal value%)
  33. Declare Sub ITabPutLine Lib "VBIT.DLL" (ByVal iTable&, ByVal lin%, ByVal dataStr$)
  34. Declare Sub ITabPutLong Lib "VBIT.DLL" (ByVal iTable&, ByVal lin%, ByVal col%, ByVal value&)
  35. Declare Sub ITabPutReal Lib "VBIT.DLL" (ByVal iTable&, ByVal lin%, ByVal col%, value#)
  36. Declare Sub ITabRemoveLine Lib "VBIT.DLL" (ByVal iTable&, ByVal atLine%)
  37. Declare Sub ITabRemoveLines Lib "VBIT.DLL" (ByVal iTable&, ByVal atLine%, ByVal num%)
  38. Declare Sub ITabFastSort Lib "VBIT.DLL" (ByVal iTable&, ByVal col%)
  39. Declare Sub ITabSmartSort Lib "VBIT.DLL" (ByVal iTable&, ByVal col%)
  40.  
  41. ' For debug/testing:
  42. Declare Function ITabUsed& Lib "VBIT.DLL" ()
  43. Declare Function ITabChainGetFirst& Lib "VBIT.DLL" ()
  44. Declare Function ITabChainGetNext& Lib "VBIT.DLL" (ByVal iTable&)
  45. Declare Function ITabDeleteAll& Lib "VBIT.DLL" ()
  46.  
  47. 'Constants for ITabRead/ITabWrite/ITabReadFmt
  48. Global Const IT_TEXTFILE% = 0
  49. Global Const IT_TABFILE& = &H10000
  50. Global Const IT_CSVFILE& = &H20000
  51. Global Const IT_CSV0FILE& = &H40000
  52. Global Const IT_ASCII% = &H800
  53. Global Const IT_STRIP_L% = &H100
  54. Global Const IT_STRIP_T% = &H200
  55. Global Const IT_STRIP_R% = &H200
  56. Global Const IT_STRIP_LT% = &H300
  57. Global Const IT_STRIP_LR% = &H300
  58. Global Const IT_STRIP_ALL% = &H400
  59.  
  60. 'Constants for ITabFind..
  61. Global Const IT_EXACT% = 0
  62. Global Const IT_GE% = 1024
  63. Global Const IT_WILD% = 2048
  64. Global Const IT_FOLD% = 4096
  65.  
  66.